home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / BevelBox.asc < prev    next >
Text File  |  1980-03-03  |  725b  |  29 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Amos Rastport
  13. '  -Wb Bevel Box 
  14. '
  15. Screen Open 0,640,256,16,$8000
  16. Curs Off : Flash Off : Cls 2
  17. Palette $0,555,$AAA,$FFF
  18. '
  19. RPORT=Amos Rastport
  20. '
  21. While Mouse Key=0
  22.    For T=1 To 25
  23.       Wb Bevel Box RPORT To 0,3,T*8,T*5,640-(T*8),256-(T*5)
  24.    Next T
  25.    For T=25 To 1 Step -1
  26.       Wb Bevel Box RPORT To 3,0,T*8,T*5,640-(T*8),256-(T*5)
  27.    Next T
  28. Wend 
  29.